Private Sub UserForm_Initialize()

    Me.Caption = "˻ "
    
    With lvw
        .View = lvwReport
        .AllowColumnReorder = True
        .FullRowSelect = True
        .Gridlines = True
        .HideSelection = False
        .LabelEdit = lvwManual
        
        With .ColumnHeaders
            .Add Key:="", Text:="", Width:=35, Alignment:=lvwColumnLeft
            .Add Key:="̸", Text:="̸", Width:=65, Alignment:=lvwColumnCenter
            .Add Key:="", Text:="", Width:=45, Alignment:=lvwColumnCenter
        End With
    End With
    
End Sub
